home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Pascal / Applications / P4⁄Mac 1.0 / test programs / fibonacci.pcode < prev    next >
Encoding:
Text File  |  1994-07-28  |  1.0 KB  |  74 lines  |  [TEXT/JOHN]
  1. l   3
  2.  ent   1   l   4
  3.  ent   2   l   5
  4.  ldci        1
  5.  sroi         11
  6.  ldci        1
  7.  sroi         10
  8.  ldci        1
  9. i   10
  10.  ldci       10
  11.  lda   0       6
  12.  csp         wri
  13.  ldoi         11
  14.  ldci       10
  15.  lda   0       6
  16.  csp         wri
  17.  lda   0       6
  18.  csp         wln
  19.  ldci        2
  20. i   20
  21.  ldci       10
  22.  lda   0       6
  23.  csp         wri
  24.  ldoi         10
  25.  ldci       10
  26.  lda   0       6
  27.  csp         wri
  28.  lda   0       6
  29.  csp         wln
  30.  ldci        3
  31. i   30
  32.  sroi         12
  33.  ldci       20
  34.  stri  0      13
  35. l   6
  36.  ldoi         12
  37.  lodi  0      13
  38.  leqi
  39.  fjp       l   7
  40.  ldoi         11
  41.  ldoi         10
  42.  adi
  43. i   40
  44.  sroi          9
  45.  ldoi         11
  46.  sroi         10
  47.  ldoi          9
  48.  sroi         11
  49.  ldoi         12
  50.  ldci       10
  51.  lda   0       6
  52.  csp         wri
  53.  ldoi         11
  54. i   50
  55.  ldci       10
  56.  lda   0       6
  57.  csp         wri
  58.  lda   0       6
  59.  csp         wln
  60.  ldoi         12
  61.  inci          1
  62.  sroi         12
  63.  ujp       l   6
  64. l   7
  65.  retp
  66. l   4=      14
  67. l   5=       8
  68. q
  69. i    0
  70.  mst           0
  71.  cup   0   l   3
  72.  stp
  73. q
  74.